home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c5.d64 / macterm v2.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  21KB  |  765 lines
  1. 0 OPEN255,2,3,CHR$(6)+CHR$(0):GOTO20000
  2. 10 REM *********************************
  3. 20 REM ********** MACTERM **************30 REM ADDRESS ANY QUESTIONS AND/OR
  4. 40 REM COMMENTS VIA E-MAIL TO
  5. 50 REM DUSTY VAN;72576,2237 OR CALL
  6. 60 REM ***** BUCCANEERS HARBOR II *****
  7. 70 REM ******** 408-243-2370 **********
  8. 80 REM *********************************
  9. 139 REM
  10. 140 REM    TERMINAL
  11. 141 REM
  12. 145 POKEB2,32:POKEB1,32:POKE198,0:A$="":PRINTE$CHR$(14)R$" TERMINAL "J$
  13. 165 GET#255,A$:IFA$=""THEN180
  14. 170 PRINTL$CHR$(F%(ASC(A$)));:IFA$=Q$THENPOKEU,0
  15. 175 GOTO165
  16. 180 PRINTO$;:GETA$:IFA$=""THEN165
  17. 181 IFPEEK(214)=24THENPRINT"[145]";
  18. 191 IFASC(A$)>132THENGOTO1000
  19. 198 PRINT#255,CHR$(T%(ASC(A$)));
  20. 200 IFB=1THENPRINTL$;CHR$(F%(T%(ASC(A$))));:IFA$=Q$THENPOKEU,0
  21. 201 GOTO165
  22. 204 REM
  23. 205 REM    DOWNLOAD
  24. 206 REM
  25. 220 G=3:K$="W":GOSUB345:PRINT:BL=.:N=.:IFEN>0THEN320
  26. 221 GOSUB700
  27. 222 GETB$:IFB$=CHR$(133)THEN2250
  28. 223 PRINT"        ";F$:POKE214,13:GOSUB700
  29. 230 FORH=WTOP
  30. 235 CH=.:FORX=WTOV:GET#255,A$:E=ST:IFA$=""THENIFE=OTHENL=L+W
  31. 240 IFE=.THENL=.:GOTO255
  32. 242 GETA$:IFA$=CHR$(133)THEN320
  33. 245 IFL=MTHENL=.:GOSUB525
  34. 250 GOTO235
  35. 255 IFX=WTHENIFA$=CHR$(EOT)THENPRINT"  "R$"EOT":GOSUB520:GOTO310
  36. 260 U%(H,X)=ASC(A$+C$):CH=CH+U%(H,X):NEXT:CH=CH-U%(H,V)
  37. 265 IF(U%(H,W)+U%(H,2)+U%(H,3)ANDF)<>.THENGOSUB525
  38. 270 IFU%(H,V)<>(CHANDF)THENGOSUB525
  39. 275 BL=BL+W:PRINT"[145] BLOCK    [157][157][157][157]"BL
  40. 280 IFU%(H,2)<>BLTHENBL=BL-1:GOSUB520:GOTO235
  41. 285 IFH<>PTHENGOSUB520
  42. 290 NEXT:H=H-W
  43. 295 IFN=WTHENIFH=.THEN310
  44. 300 FORY=1TOH:FORX=EOTTOZ:PRINT#3,CHR$(U%(Y,X));:NEXT:NEXT
  45. 305 GOSUB520:GOTO230
  46. 310 FORA=WTOH:FORR=EOTTOZ:PRINT#3,CHR$(U%(A,R));:NEXT:NEXT:CLOSEG:GOTO550
  47. 314 REM
  48. 315 REM    MENU
  49. 316 REM
  50. 320 PRINTE$:PRINTCHR$(142):POKE53248+33,C1:POKE53248+32,C2:POKE646,C3
  51. 325 PRINT" 1> TERMINAL"J$" 2> LOAD BUFFER"J$" 3> DOWNLOAD"J$" 4> UPLOAD"
  52. 326 PRINT" 5> WEDGE"J$" 6> AUTO DIAL"J$" 7> BBS MODE"
  53. 327 PRINT" 8> UTILITIES"
  54. 331 GOSUB505
  55. 335 ONVAL(A$)GOTO140,375,205,585,7000,10505,8000,5000:GOTO331
  56. 342 REM
  57. 343 REM    FILENAME/TYPE SETUP
  58. 344 REM
  59. 345 CLOSEG
  60. 346 PRINT" FILENAME / EX[146]IT  ";:INPUTF$:IFF$="X"THEN320
  61. 347 GOSUB700
  62. 350 PRINT"[145] P[146]RG / S[146]EQ / EX[146]IT  ";:INPUTFT$:IFFT$="X"THEN320
  63. 351 GOSUB700
  64. 355 FT$=LEFT$(FT$,W)
  65. 360 OPENG,8,G,F$+","+FT$+","+K$:GOSUB900
  66. 362 IFEN>0THENPRINT"[145]";:GOSUB930:FORT=1TO2000:NEXT
  67. 363 RETURN
  68. 369 REM
  69. 370 REM    UPLOAD
  70. 371 REM
  71. 375 POKE198,0:G=6:K$="R":GOSUB345:BL=.:IFEN>0THEN320
  72. 377 PRINT"";F$
  73. 378 POKE214,13:PRINT
  74. 380 FORY=WTOP:U%(Y,W)=W
  75. 381 PRINT"[145][145] LOADING"
  76. 385 BL=BL+W:U%(Y,2)=BL:U%(Y,3)=F-BL:CH=W+U%(Y,2)+U%(Y,3):PRINT" BLOCK    [157][157][157][157]"BL"
  77. 386 [161]B$:[139]B$[178][199](133)[167]320
  78. 390 [129]X[178]EOT[164]Z:[161]#6,B$:[139]ST[178].[167]400
  79. 395 FL[178]Y:CH[178]CH[170]U%(Y,X):[129]A[178]X[170]W[164]Z:U%(Y,A)[178].:[130]:U%(Y,V)[178]CH[175]F:[137]405
  80. 400 U%(Y,X)[178][198](B$[170]C$):CH[178]CH[170]U%(Y,X):[130]:U%(Y,V)[178]CH[175]F:[130]:Y[178]Y[171]W
  81. 405 [139]A$[178]"2"[167][153]" ";:[137]550
  82. 410 [161]#255,A$:[161]B$:[139]B$[178][199](133)[167]320
  83. 411 [139]A$[179][177][199](NAK)[167]410
  84. 415 BL[178]BL[171]Y:Y[178].
  85. 420 [153]"ONON NAK    "
  86. 425 Y[178]Y[170]W:BL[178]BL[170]W
  87. 430 [153]" BLOCK    CMDCMDCMDCMD"BL:[129]X[178]W[164]V:[152]255,[199](U%(Y,X));:[130]
  88. 432 [161]B$:[139]B$[178][199](133)[167]320
  89. 435 [129]A[178].[164]1200:[161]#255,A$:[139]A$[178]""[167][130]:[153]"ON";:[137]430
  90. 440 [139]A$[178][199](ACK)[167][139]Y[178]P[167][153]"ON":[137]380
  91. 445 [139]A$[178][199](ACK)[167][139]FL[179][177]Y[167][153]"ONON ACK    ":[137]425
  92. 450 [139]A$[178][199](ACK)[167][139]FL[178]Y[167]FL[178].:[141]535:[141]540:[160]G:[153]" ";:[137]550
  93. 455 [139]A$[178][199](NAK)[167][153]"ONON NAK    ":[137]430
  94. 460 [139]A$[178][199](CAN)[167][160]6:[141]525
  95. 465 [137]435
  96. 504 [143]
  97. 505 [143]    FETCH CHARACTER
  98. 506 [143]
  99. 507 [161]A$:[139]A$[178]""[167]507
  100. 510 [142]
  101. 519 [143]
  102. 520 [143]    UP/DN LOAD CONTROLS
  103. 521 [143]
  104. 522 [152]255,[199](ACK);:Q[178].:[142]
  105. 525 Q[178]Q[170]W:[139]Q[178]11[167][160]G:A$[178][199](CAN):[152]255,A$:[153]"ON CANCELLED":[137]550
  106. 530 [152]255,[199](NAK);:[142]
  107. 535 [152]255,[199](EOT);:[142]
  108. 540 [161]#255,A$:[161]B$:[139]B$[178][199](133)[167]320
  109. 541 [139]A$[178]""[167]540
  110. 545 [142]
  111. 547 [143]
  112. 548 [143]    READY WARNING
  113. 549 [143]
  114. 550 [153]R$"PRESS F1 FOR TERMINAL":[151]198,0
  115. 555 [129]T[178]1[164]80
  116. 560 [151]SO[170]1,250:[151]SO[170]5,10:[151]SO[170]15,200:[151]SO[170]24,15:[151]SO[170]4,21
  117. 565 [129]TT[178]1[164]1000:[130]:[151]SO[170]4,20
  118. 570 [161]A$:[139]A$[179][177][199](133)[167][151]198,0:[130]
  119. 575 [129]CL[178].[164]24:[151]SO[170]CL,.:[130]
  120. 580 [137]145
  121. 582 [143]
  122. 583 [143]    UPLOAD START
  123. 584 [143]
  124. 585 [151]214,12:[141]700:[153]" HOST READY  Y/N  "J$:[141]505
  125. 586 [139]A$[178]"N"[167]320
  126. 590 [139]A$[179][177]"Y"[167]585
  127. 610 [153]"     "F$
  128. 615 [151]214,12:[153]:[141]700:[153]" ":BL[178]W:Y[178]W:[137]410
  129. 699 [143]
  130. 700 [143]    CLEAR LINE
  131. 701 [143]
  132. 711 [153]"ON                                       "
  133. 720 [142]
  134. 799 [143]
  135. 800 [143]    BEEPER
  136. 801 [143]
  137. 802 SO[178]54272
  138. 805 [129]T[178]1[164]TT
  139. 810 [151]SO[170]1,250:[151]SO[170]5,10:[151]SO[170]15,200:[151]SO[170]24,15:[151]SO[170]4,21
  140. 815 [129]TT[178]1[164]1000:[130]:[151]SO[170]4,20
  141. 817 [130]
  142. 820 [129]CL[178].[164]24:[151]SO[170]CL,.:[130]
  143. 825 [142]
  144. 899 [143]
  145. 900 [143]    COMMAND CHANNEL READ
  146. 901 [143]
  147. 910 [132]7,EN,DE$,TR,SE
  148. 920 [142]
  149. 929 [143]
  150. 930 [143]    COMMAND CHANNEL PRINT
  151. 931 [143]
  152. 940 [153]EN;DE$;TR;SE
  153. 945 [142]
  154. 1000 [143]
  155. 1001 [143]    CHARACTER TEST
  156. 1002 [143]
  157. 1005 [139][198](A$)[177]192[167][137]198
  158. 1020 [139]A$[178][199](133)[167]320
  159. 1030 [139]([198](A$)[177]136) [175] ([198](A$)[179]141) [167]11000
  160. 1040 [139][198](A$)[178]175[167][141]2200:[137]165
  161. 1050 [139][198](A$)[178]141[167]B[178]0:[137]8220
  162. 1060 [139][198](A$)[178]177[175]B[178]0[167]B[178]1:[137]165
  163. 1070 [139][198](A$)[178]177[175]B[178]1[167]B[178]0:[137]165
  164. 1072 [139]([198](A$)[178]180)[175]([194](B1)[175]32)[178]0[167][151]B2,32:[151]B1,32:[137]165
  165. 1073 [139]([198](A$)[178]180)[175]([194](B1)[175]32)[178]32[167][151]B2,32:[151]B1,0:[137]165
  166. 1075 [139][198](A$)[178]182[175][195](J$)[178]1[167]J$[178][199](13)[170][199](10):[137]165
  167. 1076 [139][198](A$)[178]182[175][195](J$)[178]2[167]J$[178][199](13):[137]165
  168. 1099 [137]198
  169. 2000 [143]
  170. 2001 [143]    SCREEN DUMP
  171. 2200 [143]
  172. 2201 [139]([194](53272)[175]2)[178]0[167][159]4,4
  173. 2202 [139]([194](53272)[175]2)[178]2[167][159]4,4,7
  174. 2203 TT[178]0
  175. 2204 [151]198,0
  176. 2220 [129]T[178]1024[164]2023:TT[178]TT[170]1
  177. 2240 [152]4,[199](S%([194](T)));:[161]B$:[139]B$[178][199](133)[167]2250
  178. 2242 [139]TT[178]40[167]TT[178]0:[152]4
  179. 2245 [130]
  180. 2250 [152]4:[160]4:A$[178]"":[142]
  181. 4999 [143]
  182. 5000 [143]    UTILITIES PAGE
  183. 5001 [143]
  184. 5005 [153]E$[199](142)"    "R$"UTILITIES PAGE"J$
  185. 5020 [153]" A> DIAL TONE PAUSE       "DT
  186. 5030 [153]" B> CONNECT PAUSE         "CP
  187. 5040 [153]" C> HANG UP PAUSE         "HP
  188. 5050 [153]" D> NUMBER PAUSE          "NP
  189. 5060 [153]" E> PULSE PAUSE           "PP
  190. 5065 [153]" F> BUFFER BLOCKS (2-12)  "P
  191. 5070 [153]" G> ECHO MODE              ";
  192. 5071 [139]B[178]0[167][153]"OFF"
  193. 5072 [139]B[178]1[167][153]"ON"
  194. 5075 [153]" H> HANGUP                 ";
  195. 5076 [139]([194](B1)[175]32)[178]0[167][153]"OFF-LINE":HG[178]0
  196. 5077 [139]([194](B1)[175]32)[178]32[167][153]"LINE ACTIVE":HG[178]32
  197. 5081 [153]" J> BYTES FREE            ";[184](0)
  198. 5082 [153]" K> FUNCTION KEYS"
  199. 5085 [153]" L> SCREEN COLOR"
  200. 5090 [153]" M> BORDER COLOR"
  201. 5095 [153]" N> CHARACTER COLOR"
  202. 5096 [153]" O> MAIN MENU INSTRUCTIONS"
  203. 5097 [153]" P> UTILITY INSTRUCTIONS"
  204. 5098 [153]" Q> EXIT"
  205. 5099 [153]" R> RUN"
  206. 5100 [153]J$"    CHANGE ";:[141]505
  207. 5200 [139]A$[178]"A"[167][153]A$" ";:[133]DT:[139]DT[179]1[167]DT[178]200
  208. 5210 [139]A$[178]"B"[167][153]A$" ";:[133]CP:[139]CP[179]1[167]CP[178]750
  209. 5220 [139]A$[178]"C"[167][153]A$" ";:[133]HP:[139]HP[179]1[167]HP[178]300
  210. 5246 [139]A$[178]"D"[167][153]A$" ";:[133]NP:[139]NP[179]1[167]NP[178]400
  211. 5247 [139]A$[178]"E"[167][153]A$" ";:[133]PP:[139]PP[179]1[167]PP[178]25
  212. 5248 [139]A$[178]"F"[167][153]A$" ";:[133]P:[139](P[179]2)[176](P[177]12)[167]P[178]2
  213. 5250 [139]A$[178]"A"[176]A$[178]"B"[176]A$[178]"C"[176]A$[178]"D"[176]A$[178]"E"[176]A$[178]"F"[167]5000
  214. 5251 [139]A$[178]"G"[175]B[178]0[167]B[178]1:[137]5000
  215. 5255 [139]A$[178]"G"[175]B[178]1[167]B[178]0:[137]5000
  216. 5257 [139](A$[178]"H")[175]([194](B1)[175]32)[178]0[167][151]B2,32:[151]B1,32:HG[178]32:[137]5000
  217. 5258 [139](A$[178]"H")[175]([194](B1)[175]32)[178]32[167][151]B2,32:[151]B1,0:HG[178]0:[137]5000
  218. 5261 [139]A$[178]"K"[167][141]11100
  219. 5269 [139]A$[178]"L"[175]C1[178]15[167]C1[178][171]1
  220. 5270 [139]A$[178]"L"[167] C1[178]C1[170]1:[151]53248[170]33,C1:[139]C1[178]15[167]C1[178][171]1
  221. 5274 [139]A$[178]"M"[175]C2[178]15[167]C2[178][171]1
  222. 5275 [139]A$[178]"M"[167] C2[178]C2[170]1:[151]53248[170]32,C2:[139]C2[178]15[167]C2[178][171]1
  223. 5279 [139]A$[178]"N"[175]C3[178]15[167]C3[178][171]1
  224. 5280 [139]A$[178]"N"[167] C3[178]C3[170]1:[151]646,C3
  225. 5283 [139]A$[178]"N"[167] 5000
  226. 5284 [139]A$[178]"O"[167][141]13000:[137]5000
  227. 5285 [139]A$[178]"P"[167][141]12000:[137]5000
  228. 5286 [139]A$[178]"Q"[167][151]B2,32:[151]B1,0:[158]65511:[151]650,1:[153]E$:[128]
  229. 5288 [139]A$[178]"R"[167] [138]
  230. 5290 [139]A$[178][199](133)[167]320
  231. 5300 [139]A$[179][177][199](141)[167][153]"ONON":[137]5100
  232. 5350 [141]700:[153]"ON SAVING TO DISK"
  233. 5400 [159]2,8,15,"S:UTILITIES"
  234. 5410 [160]2
  235. 5420 [159]2,8,2,"UTILITIES,S,W"
  236. 5430 [152]2,DT;J$;CP;J$;HP;J$;NP;J$;PP;J$;P;J$;B;J$;HG;J$;C1;J$;C2;J$;C3
  237. 5510 [160]2
  238. 5599 [141]900:[139]EN[179][177]0[167][141]700:[153]"ON";:[141]930:[129]T[178]1[164]4000:[130]
  239. 5700 [137]5000
  240. 5999 [143]
  241. 6000 [143]    XMIT STRING CONVERT
  242. 6001 [143]
  243. 6005 TS$[178]""
  244. 6010 [129]T[178]1[164][195](TR$):TS$[178]TS$[170][199](T%([198]([202](TR$,T,1)))):[130]
  245. 6015 [139][195](J$)[178]2[167]TS$[178]TS$[170][199](10)
  246. 6020 [142]
  247. 6099 [143]
  248. 6100 [143]    CONVERT STRING FOR SCRN
  249. 6101 [143]
  250. 6105 TS$[178]""
  251. 6110 [129]T[178]1[164][195](TR$):TS$[178]TS$[170][199](F%([198]([202](TR$,T,1)))):[130]
  252. 6120 [142]
  253. 7000 [143]
  254. 7001 [143]    WEDGE
  255. 7002 [143]
  256. 7010 [151]214,11
  257. 7020 [153]J$" >";
  258. 7100 [161]T$
  259. 7101 [139](T$[179][177]"$")[175](T$[179][177]"V")[175](T$[179][177]"S")[175](T$[179][177]"R")[175](T$[179][177][199](133))[167]7100
  260. 7111 [153]T$;
  261. 7112 [139]T$[178][199](133)[167][137]320
  262. 7120 [139]T$[178]"$"[167]7475
  263. 7121 [139]T$[178]"V"[167][152]7,"V":[129]T[178]1[164]20000:[130]:[153]"CMDCMD  CMDCMD";:[137]7000
  264. 7122 [139](T$[178]"S")[176](T$[178]"R")[167][153]":";:[137]7600
  265. 7475 [153]:[159]1,8,0,"$":[161]#1,A$,A$
  266. 7480 [141]900:[139]EN[177]0[167][141]930:[160]1:[129]T[178]1[164]2000:[130]:[137]7100
  267. 7481 [161]#1,A$,A$:[139]A$[178]""[167]7497
  268. 7485 [161]#1,A$,B$:[153][198](A$[170]C$)[170][198](B$[170]C$)[172]256;
  269. 7490 [161]#1,A$:[139]A$[178]""[167]7501
  270. 7495 [153]A$;:[137]7490
  271. 7497 [160]1
  272. 7498 [161]A$:[139]A$[179][177][199](133)[167]7498
  273. 7499 [151]214,11:[129]T[178]1[164]12:[141]700:[153]:[130]:[151]214,11:[153]:[137]7000
  274. 7501 [139][194](214)[179][177]22[167][153]:[137]7480
  275. 7502 [161]A$:[139]A$[179][177][199](133)[167]7502
  276. 7503 [151]214,11:[129]T[178]1[164]12:[141]700:[153]:[130]:[151]214,11:[153]:[137]7481
  277. 7600 N$[178]""
  278. 7605 [161]D$:[139]D$[178]""[167]7605
  279. 7610 [139](D$[178][199](20))[175](N$[178]"")[167][153]"CMDCMD  CMDCMDON";:[141]700:[137]7000
  280. 7620 [139]D$[178][199](20)[167][153]D$;:N$[178][200](N$,[195](N$)[171]1):[137]7605
  281. 7630 [139]D$[178][199](17)[167]7605
  282. 7640 [139]D$[178][199](29)[167]7605
  283. 7645 [139]D$[178][199](145)[167]7605
  284. 7650 [139]D$[178][199](157)[167]7605
  285. 7655 [139]D$[178][199](13)[167]7685
  286. 7660 N$[178]N$[170]D$:[153]D$;
  287. 7680 [137]7605
  288. 7685 [139]T$[178]"S"[167][152]7,"SCRATCH:"[170]N$
  289. 7690 [139]T$[178]"R"[167][152]7,"RENAME:"[170]N$
  290. 7691 [141]900:[139]EN[177]0[167][141]930:[160]1:[129]T[178]1[164]3000:[130]:[141]700:[137]7000
  291. 7699 [153]:[141]700:[137]7000
  292. 8000 [143]
  293. 8001 [143]    SETUP BBS MODE
  294. 8002 [143]
  295. 8010 [153]E$[199](14):NC[178]0:NM[178]0
  296. 8015 TL$[178]"*******************************"
  297. 8016 TM$[178]"****    (null)LEFT$VAL (null)ATNLEN(null)VAL(null)(null) PEEKPEEK(null)    ****"
  298. 8017 TN$[178]"****    (null)VAL(null)LEN(null)(null)VAL(null) (null)(null)(null) !!    ****"
  299. 8020 TA$[178]"****    ASCVALATN(null)(null)(null)RIGHT$(null)CHR$          ****"
  300. 8022 TP$[178]"****    (null)(null)/STR$(null)(null)(null)(null)(null)ATNSTR$        ****"
  301. 8023 TQ$[178]"****    LENATN(null)ATNPEEKRIGHT$(null)RIGHT$(null)(null)....     ****"
  302. 8024 TU$[178]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$:TU$[178]TU$[170]TU$
  303. 8030 TB$[178]"  <(null)>ESSAGE TO (null)YSOP"
  304. 8040 TC$[178]"  <STR$>OWNLOAD ASCILES (SOON!!)
  305. 8050 TD$="  <[213]>PLOAD [198]ILES   (SOON!!)
  306. 8060 TE$[178]"  <(null)>ELL FOR (null)YSOP"
  307. 8070 TF$[178]"  <CHR$>OODBYE"
  308. 8071 TY$[178]"  <(null)>UBLIC (null)ESSAGE PEEKOARD (SOON!!)
  309. 8072 Q9$="  <[204]>IST <[197]>DIT <[195]>ONTINUE <[211]>AVE <[193]>BORT"
  310. 8080 TG$="[212]HREE [210][197][212][213][210][206][211] [212]ERMINATES [205]ESSAGE"
  311. 8085 TH$="  [211]AVING [205]ESSAGE...."
  312. 8086 TJ$="  [208]AGING [211]YSOP"
  313. 8087 TK$="  <?>MENU"
  314. 8088 TV$="  <[201]>NFO"
  315. 8089 TX$="  >"
  316. 8090 TZ$="  [211]YSOP [194]REAKING [201]N[160]!!.."
  317. 8091 BY$="  [194]YE......[208]LEASE [200]ANG [213]P!!"
  318. 8092 Q1$="  [195]OMMODORE 64 / [205][211][196] [196]UAL [196]RIVE"
  319. 8093 Q2$="  [205][208][211] 801 [208]RINTER / 1650 [193]UTOMODEM"
  320. 8094 Q3$="  [206]AME [208]LEASE "
  321. 8096 Q5$="  [197]NTER [211]UBJECT "
  322. 8099 Q8$="  [212]EXT [194]UFFER [198]ULL"
  323. 8100 REM
  324. 8101 REM    AWAIT CALL
  325. 8102 REM
  326. 8110 POKEB2,32:POKEB1,0:J$=CHR$(13):NU$=""
  327. 8120 PRINTE$"           "R$"[193]WAITING [195]ALL"
  328. 8130 IFNC<>0THENPRINT"           ";NC;"CALLS
  329. 8140 [139]NM[179][177]0[167][153]"           ";NM;"MESSAGES"
  330. 8150 [161]A$:[139]A$[178][199](133)[167]J$[178][199](13):B[178]0:[137]320
  331. 8160 [139]([194](B1)[175]8)[179][177]0[167]8150
  332. 8200 [143]
  333. 8201 [143]    LOGON MESSAGE & MENU
  334. 8202 [143]
  335. 8203 [151]B2,6:[151]B1,32:TI$[178]"000000":TT[178]3:NC[178]NC[170]1:[141]800:[151]198,0
  336. 8204 [153]E$J$"               LENONNECT !   "J$
  337. 8205 [129]T[178]1[164]2000:[130]
  338. 8207 TR$[178]TL$:[141]6000:[152]255,TU$;TS$
  339. 8208 TR$[178]TM$:[141]6000:[152]255,TS$
  340. 8209 TR$[178]TN$:[141]6000:[152]255,TS$
  341. 8210 TR$[178]TA$:[141]6000:[152]255,TS$
  342. 8211 TR$[178]TP$:[141]6000:[152]255,TS$
  343. 8212 TR$[178]TQ$:[141]6000:[152]255,TS$
  344. 8213 TR$[178]TL$:[141]6000:[152]255,TS$
  345. 8214 TR$[178]Q3$:[141]6000:[152]255,J$;J$;J$;TS$:[152]255,"  ";
  346. 8215 [161]#255,A$:[141]9990:[139]A$[178]""[167]8215
  347. 8216 [139](F%([198](A$))[178]20)[175]([195](NU$)[177]0)[167]NU$[178][200](NU$,[195](NU$)[171]1):[137]8218
  348. 8217 NU$[178]NU$[170][199](F%([198](A$))):[152]255,A$;
  349. 8218 [153][199](F%([198](A$)));:[139][195](NU$)[178]244[167]A$[178]J$:NU$[178]NU$[170]J$
  350. 8219 [139]A$[179][177][199](13)[167]8215
  351. 8220 TR$[178]TY$:[141]6000:[152]255,J$;J$;TS$
  352. 8222 TR$[178]TB$:[141]6000:[152]255,TS$
  353. 8240 TR$[178]TC$:[141]6000:[152]255,TS$
  354. 8250 TR$[178]TD$:[141]6000:[152]255,TS$
  355. 8260 TR$[178]TE$:[141]6000:[152]255,TS$
  356. 8270 TR$[178]TF$:[141]6000:[152]255,TS$
  357. 8272 TR$[178]TV$:[141]6000:[152]255,TS$
  358. 8275 TR$[178]TK$:[141]6000:[152]255,TS$
  359. 8280 TR$[178]TX$:[141]6000:[152]255,J$;J$;J$;TS$;
  360. 8400 [143]
  361. 8401 [143]    MAKE DECISION
  362. 8402 [143]
  363. 8410 [161]#255,A$
  364. 8415 [141]9990
  365. 8438 [139]A$[178]""[167]8410
  366. 8440 [139][199](F%([198](A$)))[178]"G"[167][152]255,A$:[137]9980
  367. 8445 [139][199](F%([198](A$)))[178]"P"[167][152]255,A$:[137]9100
  368. 8450 [139][199](F%([198](A$)))[178]"M"[167][152]255,A$:[137]8600
  369. 8460 [139][199](F%([198](A$)))[178]"Y"[167][152]255,A$:[137]8800
  370. 8465 [139][199](F%([198](A$)))[178]"I"[167][152]255,A$:[137]8900
  371. 8470 [139][199](F%([198](A$)))[178]"?"[167][152]255,A$:[137]8220
  372. 8480 [137]8410
  373. 8600 [143]
  374. 8601 [143]    LEAVE SYSOP MESSAGE
  375. 8602 [143]
  376. 8605 [141]9300
  377. 8610 TR$[178]TG$:[141]6000:[152]255,J$;J$;J$;TS$;J$;J$
  378. 8611 [139](S[178]51)[176](ML[177][178]2048)[167]TR$[178]Q8$:[141]6000:[152]255,J$;TS$:[137]8699
  379. 8612 [152]255,[199](T%([198](">")));
  380. 8615 [161]#255,A$
  381. 8630 [141]9990
  382. 8653 [139]A$[178]""[167]8615
  383. 8655 [139]A$[179][177][199](13)[167]SM[178]0:[137]8670
  384. 8660 [139]A$[178][199](13)[167]SM[178]SM[170]1
  385. 8665 [139]A$[178][199](13)[175]SM[178]3[167]8699
  386. 8670 [153]L$[199](F%([198](A$)));:[139]A$[178]Q$[167][151]U,.
  387. 8671 [152]255,A$;:[139]F%([198](A$))[178]20[167]S$(S)[178][200](S$(S),[195](S$(S))[171]1)
  388. 8672 S$(S)[178]S$(S)[170][199](F%([198](A$))):[139][195](S$(S))[178]254[167]A$[178][199](13):[137]8660
  389. 8679 [139]A$[178][199](13)[167]ML[178]ML[170][195](S$(S)):S[178]S[170]1:[137]8611
  390. 8680 [137]8615
  391. 8699 [141]9200:[137]8220
  392. 8700 [143]
  393. 8701 [143]    SYSOP BREAKS IN
  394. 8702 [143]
  395. 8710 TR$[178]TZ$:[141]6000:[152]255,J$;J$;TS$;J$;J$
  396. 8720 B[178]1:[137]145
  397. 8800 [143]
  398. 8801 [143]    YELL FOR SYSOP
  399. 8802 [143]
  400. 8805 YS[178]0
  401. 8810 TR$[178]TJ$:[141]6000:[153]J$;TJ$;:[152]255,J$;TS$;:[141]9960
  402. 8820 [152]255,[199](T%([198](".")));:[153]".";:YS[178]YS[170]1
  403. 8821 [151]SO[170]4,21:[129]TT[178]1[164]1000:[130]:[151]SO[170]4,20
  404. 8822 [141]9990
  405. 8830 [161]#255,A$:[139]A$[179][177]""[167][139]F%([198](A$))[178]13[167]8850
  406. 8840 [139]YS[179]25[167][129]T[178]1[164]500:[130]:[137]8820
  407. 8850 [141]9970:[152]255,J$;J$:[153]J$J$:[137]8220
  408. 8900 [143]
  409. 8901 [143]    SYSTEM INFO
  410. 8902 [143]
  411. 8910 TR$[178]Q1$:[141]6000:[152]255,J$;J$;TS$
  412. 8920 TR$[178]Q2$:[141]6000:[152]255,TS$;J$;J$
  413. 8930 [137]8220
  414. 9100 [143]
  415. 9101 [143]    PUBLIC MESSAGE BOARD
  416. 9102 [143]
  417. 9199 [137]8220
  418. 9200 [143]
  419. 9201 [143]    SAVE MESSAGE TO DISK
  420. 9202 [143]
  421. 9203 TR$[178]TH$:[141]6000:[152]255,J$;TS$;
  422. 9208 S$(0)[178]NU$:[139][195](F$)[177]16[167]F$[178][200](F$,16)
  423. 9210 [159]8,8,8,F$[170]",S,W"
  424. 9212 [141]900:[139]EN[177]0[167]F$[178]"\"[170]F$:[141]9990:[137]9208
  425. 9220 [129]T[178]0[164]S:[139]S$(T)[179][177]""[167][152]8,S$(T)
  426. 9225 [130]
  427. 9230 [160]8:NM[178]NM[170]1
  428. 9235 [129]T[178]1[164]50:S$(T)[178]"":[130]
  429. 9299 [142]
  430. 9300 [143]
  431. 9301 [143]    SUBJECT SET
  432. 9302 [143]
  433. 9305 A$[178]"":S[178]1:F$[178]"":ML[178]0:[129]T[178]0[164]50:S$(T)[178]"":[130]
  434. 9310 TR$[178]Q5$:[141]6000:[152]255,J$;TS$;[199](32);[199](32);
  435. 9320 [161]#255,A$:[141]9990:[139]A$[178]""[167]9320
  436. 9330 [139]A$[178][199](13)[167]9370
  437. 9335 [139](F%([198](A$))[178]20)[175]([195](F$)[177]0)[167]F$[178][200](F$,[195](F$)[171]1):[137]9355
  438. 9340 [139][198](A$)[177]127[167]A$[178][199]([198](A$)[171]128)
  439. 9350 F$[178]F$[170][199](F%([198](A$)))
  440. 9355 [152]255,A$;
  441. 9360 [137]9320
  442. 9370 [142]
  443. 9960 [143]
  444. 9961 [143]    BEEP ON
  445. 9962 [143]
  446. 9963 SO[178]54272
  447. 9964 [151]SO[170]1,250:[151]SO[170]5,10:[151]SO[170]15,200:[151]SO[170]24,15
  448. 9965 [142]
  449. 9970 [143]
  450. 9971 [143]    BEEP OFF
  451. 9972 [143]
  452. 9978 [129]CL[178]0[164]24:[151]SO[170]CL,0:[130]
  453. 9979 [142]
  454. 9980 [143]
  455. 9981 [143]    LOGOFF MESSAGE
  456. 9982 [143]
  457. 9985 TR$[178]BY$:[141]6000:[152]255,J$;J$;TS$:[129]T[178]1[164]3000:[130]:[137]8100
  458. 9990 [143]
  459. 9991 [143]    LINE STATUS
  460. 9992 [143]
  461. 9995 [139]([194](B1)[175]16)[178]16[167]9980
  462. 9997 [139][197](TI$)[177]3000[167]9980
  463. 9998 [139][194](198)[177]0[167]8700
  464. 9999 [142]
  465. 10500 [143]
  466. 10501 [143]    AUTO DIALER
  467. 10502 [143]
  468. 10505 [151]B2,32:[151]B1,0:CC[178]0:TC[178]0:D$[178]"":D1$[178]""
  469. 10515 [153]"":[153]" PHONE # ";R$;"_CMD";[199](146);
  470. 10516 [161]D1$:[139]D1$[178]""[167]10516
  471. 10517 [139]D1$[178][199](17)[167]10516
  472. 10518 [139]D1$[178][199](145)[167]10516
  473. 10519 [139]D1$[178][199](157)[167]10516
  474. 10520 [139]D1$[178][199](29)[167]10516
  475. 10522 [139]D1$[178][199](13)[167]10526
  476. 10523 [139]D1$[178][199](20)[167][153]D1$;:D$[178][200](D$,[195](D$)[171]1):[137]10516
  477. 10524 [139]D1$[178][199](133)[167]320
  478. 10525 [153]D1$R$;"_CMD";[199](146);:D$[178]D$[170]D1$:[137]10516
  479. 10526 [139]D$[178]""[167]320
  480. 10527 [153]"    ";
  481. 10536 [139][195](D$)[178]7[167][153][200](D$,3);"-";[201](D$,4)
  482. 10537 [139][195](D$)[178]10[167][153]"(";[200](D$,3);") ";[202](D$,4,3);"-";[201](D$,4)
  483. 10538 [139]([195](D$)[179][177]7)[175]([195](D$)[179][177]10)[167][153]D$
  484. 10539 [151]214,13:[141]700:TI$[178]"000000"
  485. 10540 [151]B2,32:[151]B1,32
  486. 10542 [153]"ON ";
  487. 10560 [129]T[178]1[164]DT[172]10:[130]
  488. 10580 [129]X9[178]1[164][195](D$)
  489. 10585 [161]A$:[139]A$[178][199](133)[167][151]B2,32:[151]B1,0:[137]320
  490. 10590 N$[178][202](D$,X9,1)
  491. 10592 [153]N$R$"_CMD";[199](146);
  492. 10595 [139]N$[178]"P"[167][129]T[178]1[164]500:[130]:[137]10630
  493. 10600 N[178][197](N$)
  494. 10610 [139]N[178]0[167]N[178]10
  495. 10620 [141]10650
  496. 10630 [130]X9
  497. 10634 TT[178]0:[129]T[178]1[164]CP
  498. 10635 [139]([194](B1)[175]16)[178]0[167]CC[178]CC[170]1:[139]CC[178]10[167][153]:[153]" ";:[137]550
  499. 10638 [161]A$:[139]A$[178][199](133)[167][151]B2,32:[151]B1,0:[137]320
  500. 10639 [130]
  501. 10640 TC[178]TC[170]1:[153]" "TC" CALLS   [ "[202](TI$,3,2)":"[201](TI$,2)" ]"
  502. 10641 [151]B2,32:[151]B1,0:[129]T[178]1[164]HP:[161]A$:[139]A$[179][177][199](133)[167][130]:[137]10540
  503. 10642 [137]320
  504. 10650 [129]N1[178]1[164]N
  505. 10652 [129]T[178]1[164]PP:[130]
  506. 10655 [151]B1,0
  507. 10662 [129]T[178]1[164]PP:[130]
  508. 10670 [151]B1,32
  509. 10685 [130]N1
  510. 10692 [129]T[178]1[164]NP:[130]
  511. 10695 [142]
  512. 10999 [143]
  513. 11000 [143]    FUNCTION KEY PRINT
  514. 11001 [143]
  515. 11020 [145][198](A$)[171]136[137]11035,11040,11043,11048
  516. 11035 [152]255,F2$:[139]B[178]1[167]TR$[178]F2$:[141]6100:[153]TS$
  517. 11037 [137]165
  518. 11040 [152]255,F4$:[139]B[178]1[167]TR$[178]F4$:[141]6100:[153]TS$
  519. 11042 [137]165
  520. 11043 [152]255,F6$:[139]B[178]1[167]TR$[178]F6$:[141]6100:[153]TS$
  521. 11045 [137]165
  522. 11048 [152]255,F8$:[139]B[178]1[167]TR$[178]F8$:[141]6100:[153]TS$
  523. 11050 [137]165
  524. 11099 [143]
  525. 11100 [143]    DEFINE FUNCTION KEYS
  526. 11101 [143]
  527. 11102 [139]F2$[178]""[167] F2$[178]"PASSWORD"
  528. 11104 [139]F4$[178]""[167] F4$[178]"NAME"
  529. 11106 [139]F6$[178]""[167] F6$[178]"CITY-STATE"
  530. 11108 [139]F8$[178]""[167] F8$[178]"COMMODORE 64"
  531. 11150 [153]E$[199](14)"        "R$"STR$EFINE ASCUNCTIONCLOSE(null)EYS"J$J$
  532. 11200 TR$[178]F2$:[141]6100:[153]"F2 = "TS$J$
  533. 11205 TR$[178]F4$:[141]6100:[153]"F4 = "TS$J$
  534. 11210 TR$[178]F6$:[141]6100:[153]"F6 = "TS$J$
  535. 11215 TR$[178]F8$:[141]6100:[153]"F8 = "TS$J$
  536. 11250 [153]J$J$"(null)(null)VAL(null)(null)CLOSELEN=CLOSE<LEN(null)>CLOSEASC(null)(null)CLOSEASCRIGHT$(null)VALCLOSE(null)(null)STR$ATN(null)VAL"
  537. 11300 [153]J$J$J$"LENHOOSE  ";:[141]505
  538. 11310 [139]A$[178][199](133)[167]5000
  539. 11430 [139]A$[178][199](137)[167][133]"F2 ";F2$:TR$[178]F2$:[141]6000:F2$[178]TS$:[137]11100
  540. 11440 [139]A$[178][199](138)[167][133]"F4 ";F4$:TR$[178]F4$:[141]6000:F4$[178]TS$:[137]11100
  541. 11450 [139]A$[178][199](139)[167][133]"F6 ";F6$:TR$[178]F6$:[141]6000:F6$[178]TS$:[137]11100
  542. 11460 [139]A$[178][199](140)[167][133]"F8 ";F8$:TR$[178]F8$:[141]6000:F8$[178]TS$:[137]11100
  543. 11470 [139]A$[179][177][199](141)[167][153]"ONONONON":[137]11300
  544. 11500 [159]1,8,15,"S:FUNCTION KEYS"
  545. 11505 [160]1
  546. 11600 [159]1,8,2,"FUNCTION KEYS,S,W"
  547. 11610 [152]1,F2$J$,F4$J$,F6$J$,F8$
  548. 11620 [160]1
  549. 11700 [141]900:[139]EN[177]0[167][153]E$;:[141]930:[153][199](142);
  550. 11800 [142]
  551. 12000 [143]
  552. 12001 [143]    UTILITY INSTR.
  553. 12002 [143]
  554. 12005 [153]E$[199](14)
  555. 12030 [153]"LOAD"
  556. 12032 [153]"         (null)VAL(null)CLOSESTR$VALASCRIGHT$(null)RIGHT$(null)RIGHT$(null)(null)(null)":[153]
  557. 12034 [153]"     ************************":[153]
  558. 12035 [153]"     ASC1       =  (null)VAL(null)(null)"
  559. 12037 [153]"     ASC3       =  LEN(null)(null)(null)CLOSE(null)"
  560. 12039 [153]"     ASC5       =  LEN(null)(null)(null) (null)"
  561. 12041 [153]"     ASC7       =  LEN(null)(null)(null) (null)"
  562. 12042 [153]"     LEN=CLOSECLOSELENCLOSECLOSECLOSE =  LEN(null)(null)(null) LEN"
  563. 12043 [153]"     LEN=  (null)    =  LEN(null)(null)(null) (null)"
  564. 12044 [153]"     ASC2       ="
  565. 12045 [153]"     ASC4       = ... (null)(null)(null)CHR$(null)ATN(null)ATNPEEK(null)VAL"
  566. 12046 [153]"     ASC6       = ... ASC(null)(null)LEN(null)RIGHT$(null)(null)CLOSE(null)VAL(null)(null)"
  567. 12047 [153]"     ASC8       ="
  568. 12048 [153]"     LEN=  VAL    =  VALLENLEFT$(null)CLOSE(null)(null)STR$VALCLOSE(null)(null)CHR$CHR$(null)VAL"
  569. 12050 [153]"     LEN=  LEFT$    =  LEFT$ATN(null)CHR$(null)(null)CLOSE(null)(null)CHR$CHR$(null)VAL"
  570. 12051 [153]"     LEN=  (null)    =  (null)(null)RIGHT$(null)(null)CLOSESTR$(null)(null)(null)"
  571. 12055 [153]"     LEN= <LEN(null)>  =  ASCRIGHT$(null)VALCLOSE(null)(null)STR$ATN(null)VAL"
  572. 12070 [153]"        (null)(null)VAL(null)(null)CLOSEASC1 ASC(null)(null)CLOSE(null)(null)(null)VAL"
  573. 12072 [153]"      (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)"
  574. 12099 [161]A$:[139]A$[178][199](175)[167][141]2000
  575. 12100 [139]A$[179][177][199](133)[167]12099
  576. 12110 [153]E$[199](14)"            (null)(null)RIGHT$(null)RIGHT$(null)RIGHT$VAL(null) (null)ATNCHR$VAL "
  577. 12120 [153]"             RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)  "
  578. 12130 [153]J$" STR$RIGHT$ATN(null)CLOSE(null)(null)(null)VALCLOSE(null)ATN(null)(null)VAL"
  579. 12131 [153]"      THE AMOUNT OF TIME TO GET A DIAL"
  580. 12132 [153]"      TONE AFTER YOU PICK UP THE PHONE"
  581. 12140 [153]J$" LEN(null)(null)(null)VALLEN(null)CLOSE(null)ATN(null)(null)VAL"
  582. 12141 [153]"      THE AMOUNT OF TIME TO ANSWER THE"
  583. 12142 [153]"      PHONE AND ACCEPT A CARRIER"
  584. 12150 [153]J$" LEFT$ATN(null)CHR$(null)(null)CLOSE(null)ATN(null)(null)VAL"
  585. 12151 [153]"      THE AMOUNT OF TIME TO HANGUP"
  586. 12152 [153]"      WELL ENOUGH TO CALL AGAIN"
  587. 12160 [153]J$" (null)(null)(null)PEEKVAL(null)CLOSE(null)ATN(null)(null)VAL"
  588. 12161 [153]"      THE AMOUNT OF TIME BETWEEN"
  589. 12162 [153]"      NUMBERS DIALED"
  590. 12170 [153]J$" (null)(null)(null)(null)VALCLOSE(null)ATN(null)(null)VAL"
  591. 12171 [153]"      THE AMOUNT OF TIME BETWEEN"
  592. 12172 [153]"      PULSES FOR EACH NUMBER DIALED"
  593. 12180 [153]"        (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL"
  594. 12182 [153]"      (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)";
  595. 12198 [161]A$:[139]A$[178][199](175)[167][141]2000
  596. 12199 [139]A$[179][177][199](133)[167]12198
  597. 12200 [153]E$[199](14)"            (null)(null)RIGHT$(null)RIGHT$(null)RIGHT$VAL(null) (null)ATNCHR$VAL "
  598. 12210 [153]"             RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)  "
  599. 12220 [153]J$" PEEK(null)ASCASCVAL(null)CLOSEPEEK(null)(null)LEN(null)(null)CLOSE(2-64)"
  600. 12221 [153]"      THE NUMBER OF 128 BYTE BLOCKS"
  601. 12222 [153]"      FOR UP/DOWN LOADING"
  602. 12223 [153]"      SYSTEM WILL UPDATE UTILITIES FILE"
  603. 12224 [153]"      AND RERUN PROGRAM"
  604. 12230 [153]J$" VALLENLEFT$(null)CLOSE(null)(null)STR$VAL"
  605. 12231 [153]"      FOR CALLING OTHER COMPUTERS AS"
  606. 12232 [153]"      OPPOSED TO A BULLETIN BOARD"
  607. 12233 [153]"      WITHOUT THIS YOU WILL NOT BE ABLE"
  608. 12234 [153]"      TO SEE WHAT YOU TYPE"
  609. 12240 [153]J$" LEFT$ATN(null)CHR$(null)(null)"
  610. 12241 [153]"      THIS IS THE HANGUP TOGGLE"
  611. 12245 [153]J$" PEEK(null)(null)VAL(null)CLOSEASC(null)VALVAL"
  612. 12246 [153]"      THE NUMBER OF MEMORY BYTES UNUSED"
  613. 12253 [153]"        (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL"
  614. 12254 [153]"      (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)";
  615. 12255 [161]A$:[139]A$[178][199](175)[167][141]2000
  616. 12256 [139]A$[179][177][199](133)[167]12255
  617. 12300 [153]E$[199](14)"            (null)(null)RIGHT$(null)RIGHT$(null)RIGHT$VAL(null) (null)ATNCHR$VAL "
  618. 12310 [153]"             RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)  "
  619. 12330 [153]J$" ASC(null)(null)LEN(null)RIGHT$(null)(null)CLOSE(null)VAL(null)(null)"
  620. 12331 [153]"      THESE ARE PROGRAMMABLE KEYS THAT"
  621. 12332 [153]"      CAN BE USED TO SEND PASSWORDS,"
  622. 12333 [153]"      NAMES OR ANYTHING 80 CHARACTERS"
  623. 12334 [153]"      OR LESS"
  624. 12335 [153]"      THESE KEYS ARE UPDATED TO DISK"
  625. 12336 [153]"      BY PRESSING LEN= <LEN(null)>"
  626. 12400 [153]J$" (null)LEN(null)VALVAL(null)CLOSELEN(null)(null)(null)(null)"
  627. 12401 [153]" PEEK(null)(null)STR$VAL(null)CLOSELEN(null)(null)(null)(null)"
  628. 12402 [153]" LENLEFT$ATN(null)ATNLEN(null)VAL(null)CLOSELEN(null)(null)(null)(null)"
  629. 12403 [153]"      THESE ARE THE COLOR CONTROLS AND"
  630. 12404 [153]"      ARE SAVED TO DISK WHEN UPDATED"
  631. 12410 [153]J$" **************************************"
  632. 12412 [153]" (null)VAL(null)VALLEN(null)RIGHT$(null)(null)(null)CLOSEATN (null)(null) RIGHT$ ATN(null)STR$ (null) (null)(null) (null) ATN(null)VAL (null)ATN(null)VALSTR$"
  633. 12414 [153]" (null)(null) STR$RIGHT$(null)(null)CLOSEPEEK(null)CLOSE(null)(null)VAL(null)(null)RIGHT$(null)CHR$CLOSELEN=CLOSEATN(null)STR$CLOSE(null)VAL(null)(null)(null)(null)"
  634. 12415 [153]" **************************************"
  635. 12995 [153]"        (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)VAL(null)(null)"
  636. 12996 [153]"      (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)";
  637. 12997 [161]A$:[139]A$[178][199](175)[167][141]2000
  638. 12998 [139]A$[179][177][199](133)[167]12997
  639. 12999 [142]
  640. 13000 [143]
  641. 13001 [143]    MAIN MENU INSTR.
  642. 13002 [143]
  643. 13100 [153]E$[199](14)"               (null)ATNRIGHT$(null)CLOSE(null)VAL(null)(null)"
  644. 13120 [153]"             RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)  "
  645. 13130 [153]"     (null)(null)(null)STR$VAL(null) (null)(null)(null)(null)(null)LEN(null)(null)CLOSEVAL(null)LEN(null)(null)(null)RIGHT$(null)VAL(null)(null)CLOSE!"
  646. 13131 [153]"    ..............................."
  647. 13140 [153]J$" (null)(null)ATNSTR$CLOSEPEEK(null)ASCASCVAL(null)"
  648. 13141 [153]"      (null)HIS OPTION IS FOR"
  649. 13142 [153]"      PRELOADING 128 BYTE BLOCKS FOR"
  650. 13143 [153]"      UPLOAD."
  651. 13144 [153]"      (null)HE NUMBER OF BLOCKS IS"
  652. 13145 [153]"      CONTROLLED FROM THE UTILITIES"
  653. 13146 [153]"      PAGE."
  654. 13150 [153]J$" STR$(null)(null)(null)(null)(null)ATNSTR$"
  655. 13151 [153]"      THIS OPTION IS FOR"
  656. 13152 [153]"      RECIEVING PROGRAMS FROM OTHER"
  657. 13153 [153]"      COMPUTER SYSTEMS."
  658. 13160 [153]J$" (null)(null)(null)(null)ATNSTR$"
  659. 13161 [153]"      THIS OPTION IS FOR TRANSMITTING"
  660. 13162 [153]"      PROGRAMS ALREADY LOADED INTO THE"
  661. 13163 [153]"      BUFFER"
  662. 13190 [153]"           (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL"
  663. 13191 [153]"         (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)";
  664. 13192 [161]A$:[139]A$[178][199](175)[167][141]2000
  665. 13193 [139]A$[179][177][199](133)[167]13192
  666. 13200 [153]E$[199](14)"               (null)ATNRIGHT$(null)CLOSE(null)VAL(null)(null)"
  667. 13220 [153]"             RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)  "
  668. 13330 [153]J$" (null)VALSTR$CHR$VAL"
  669. 13331 [153]"      THIS OPTION SIMULATES THE"
  670. 13332 [153]"      LEN-64 WEDGE"
  671. 13333 [153]"      <(null)>ALIDATE, <$>DIRECTORY,"
  672. 13334 [153]"      <(null)>ENAME AND <(null)>CRATCH ARE"
  673. 13335 [153]"      AVAILABLE"
  674. 13430 [153]J$" PEEKPEEK(null)CLOSE(null)(null)STR$VAL"
  675. 13431 [153]"      (null)HIS OPTION IS FOR UNATTENDED"
  676. 13432 [153]"      CONTROL OF YOUR COMPUTER."
  677. 13434 [153]"      ATNNY KEY ENTERS CHAT MODE"
  678. 13435 [153]"      LEN= RETURN DUMPS BACK INTO BBS."
  679. 13436 [153]"      (null)ESSAGES ARE SEQUENTIAL FILES"
  680. 13437 [153]"      AND LINES CAN BE 256 CHARACTERS."
  681. 13438 [153]"      50 LINES OR 2048 CHARACTERS"
  682. 13439 [153]"      IS THE SIZE LIMIT."
  683. 13496 [153]"        (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL"
  684. 13497 [153]"      (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)";
  685. 13498 [161]A$:[139]A$[178][199](175)[167][141]2000
  686. 13499 [139]A$[179][177][199](133)[167]13498
  687. 13999 [142]
  688. 15000 [143]
  689. 15001 [143]    DEFINE VARIABLES
  690. 15002 [143]
  691. 15020 [159]7,8,15,"I"
  692. 15037 [159]1,8,2,"FUNCTION KEYS,S,R":[132]1,F2$,F4$,F6$,F8$:[160]1:[141]900
  693. 15040 [159]2,8,2,"UTILITIES,S,R":[132]2,DT,CP,HP,NP,PP,P,B,HG,C1,C2,C3:[160]2
  694. 15041 [141]900
  695. 15042 [139]EN[177]0[167]DT[178]200:CP[178]750:HP[178]300:NP[178]200:PP[178]5:P[178]2:HG[178]1:C1[178]6:C2[178]6:C3[178]14
  696. 15044 U[178]212:W[178]1:E$[178][199](147):P$[178][199](19):O[178]8:I$[178][199](10):J$[178][199](13):[151]198,0
  697. 15045 ACK[178]6:NAK[178]21:EOT[178]4:CAN[178]24:Z[178]131:V[178]132:F[178]255:M[178]288:B1[178]56577:B2[178]56579
  698. 15050 C$[178][199](.):R$[178][199](18):O$[178][199](187)[170][199](157):SO[178]54272:[151]B2,32:[151]B1,HG
  699. 15052 Q$[178][199](34):L$[178][199](32)[170][199](157)
  700. 15100 [143]
  701. 15102 [143]
  702. 15103 [143]    LOAD TRANSLATION TABLES
  703. 15104 [143]
  704. 15105 [134]F%(F),T%(F),U%(12,V),S%(F),S$(50)
  705. 15115 [129]J[178]32[164]64:T%(J)[178]J:F%(J)[178]J:F%(J[170]128)[178]J:S%(J)[178]J:S%(J[170]128)[178]J:[130]
  706. 15120 [129]J[178]65[164]90:T%(J)[178]J[170]32:T%(J[170]128)[178]J:F%(J)[178]J[170]128:F%(J[170]128)[178]J[170]128:F%(J[170]32)[178]J
  707. 15125 F%(J[170]160)[178]J:S%(J)[178]J[170]32:S%(J[170]128)[178]J[170]32:[130]
  708. 15126 [129]J[178]91[164]95:T%(J)[178]J:F%(J)[178]J:F%(J[170]128)[178]J:[130]
  709. 15127 [129]J[178]0[164]31:S%(J)[178]J[170]64:S%(J[170]128)[178]J[170]64:[130]
  710. 15129 [129]J[178]91[164]127:S%(J)[178]32:S%(J[170]128)[178]32:[130]
  711. 15130 T%(13)[178]13:T%(20)[178]8:T%(134)[178]3:T%(135)[178]17:T%(136)[178]19:T%(188)[178]16
  712. 15131 T%(147)[178]19:T%(189)[178]24
  713. 15132 S%(64)[178]0:S%(192)[178]0
  714. 15135 F%(8)[178]20:F%(136)[178]20:F%(16)[178]146:F%(144)[178]146:F%(13)[178]13:F%(141)[178]13
  715. 15200 [142]
  716. 20000 [143]
  717. 20001 [143]    GREETING
  718. 20002 [143]
  719. 20005 [153][199](142):[153][199](147):[151]53248[170]32,6:[151]53248[170]33,6:[151]646,14
  720. 20020 [153]"       WAIT";:[153]"                   STEP     (null)WAIT"
  721. 20030 [153]"   WAIT  WAIT  WAIT";:[153]"                   (null) WAITSTEP WAIT(null) WAITSTEPWAIT"
  722. 20032 [153]"   WAIT  WAIT  WAIT";:[153]"                     (null)(null)(null)  WAIT"
  723. 20034 [153]"   WAIT  WAIT  WAIT";:[153]"                     (null)(null)(null)  WAIT"
  724. 20036 [153]"   WAIT  WAIT  WAIT";:[153]"                     (null)(null)(null)  WAIT"
  725. 20040 [153]"   "
  726. 20042 [153]" WAIT  "
  727. 20044 [153]"   WAIT";:[153]"                      WAIT"
  728. 20046 [153]" WAIT  WAIT"
  729. 20048 [153]" WAIT  WAIT"
  730. 20050 [153]"   WAIT"
  731. 20052 [153]" "
  732. 20054 [153]" "
  733. 20056 [153]" "
  734. 20058 [153]"   "
  735. 20060 [153]"   "
  736. 20062 [153]" "
  737. 20064 [153]" "
  738. 20066 [153]" "
  739. 20068 [153]" "
  740. 20070 [153]"   "
  741. 20072 [153]" "
  742. 20074 [153]"   "
  743. 20076 [153]" "
  744. 20078 [153]"   "
  745. 20080 [153]"   "
  746. 20082 [153]" WAIT  "
  747. 20084 [153]"   "
  748. 20086 [153]" WAIT (null)"
  749. 20088 [153]" WAIT  "
  750. 20090 [153]"     "
  751. 20092 [153]" WAIT  WAIT  WAIT "
  752. 20094 [153]" WAIT  WAIT  WAIT "
  753. 20096 [153]" WAIT  WAIT  WAIT "
  754. 20098 [153]" WAIT  WAIT  WAIT "
  755. 20150 [139]W[179][177]1[167][141]15000
  756. 20250 [153]"    <F1> FOR MENU"
  757. 20255 [161]A$:[139]A$[179][177][199](133)[167]20255
  758. 20260 [137]320
  759. 60000 [143]
  760. 60001 [143]    SAVE ROUTINE
  761. 60002 [143]
  762. 60010 [133]"FILENAME";NM$
  763. 60020 [148]NM$,8
  764. 0 
  765.